Public Class SqlCedto
    Inherits KetNoiDto
#Region "Attributes"
    Private _Duongdan As String
#End Region
#Region "Property"
    Public Property DuongdanSqlCe() As String
        Get
            Return _Duongdan
        End Get
        Set(ByVal value As String)
            _Duongdan = value
        End Set
    End Property
    Public Property Pass() As String
        Get
            Return _pass
        End Get
        Set(ByVal value As String)
            _pass = value
        End Set
    End Property
#End Region
#Region "Contructor"
    Public Sub New()
        DuongdanSqlCe = ""
        Pass = ""
        MsSql = Class_KieuDL.SqlCe
    End Sub
    Public Sub New(ByVal duongdan As String, ByVal pass1 As String)
        MsSql = Class_KieuDL.SqlCe
        ChuoiKetNoi = "Data Source=" & duongdan & ";Encrypt Database=True;Password= " & pass1 & " ;File Mode=shared read;Persist Security Info=False; "
    End Sub
    Public Sub ChuoiKetNoiSqlCe()
        MsSql = Class_KieuDL.SqlCe
        If _pass = "" Then
            ChuoiKetNoi = "Data Source=" & DuongdanSqlCe & ""
        Else
            ChuoiKetNoi = "Data Source=" & DuongdanSqlCe & " ;Encrypt Database=True;Password= " & Pass & " ;File Mode=shared read;Persist Security Info=False; "
        End If
    End Sub
#End Region
End Class
